home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / iracalc.bas < prev    next >
Unknown  |  1985-05-09  |  1.8 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Memotech MTX BASIC source (document/memotechMTXBASICSource) ext Unsupported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% detectItEasy Format: plain text[CR] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 43 4c 53 0d 31 20 | 43 4c 53 0d 31 20 43 4c |1 CLS.1 |CLS.1 CL|
|00000010| 53 0d 32 20 4b 45 59 20 | 4f 46 46 0d 33 20 43 4c |S.2 KEY |OFF.3 CL|
|00000020| 45 41 52 0d 35 20 53 43 | 52 45 45 4e 20 30 3a 57 |EAR.5 SC|REEN 0:W|
|00000030| 49 44 54 48 20 34 30 0d | 36 20 43 4f 4c 4f 52 20 |IDTH 40.|6 COLOR |
|00000040| 31 34 2c 34 2c 39 3a 43 | 4c 53 0d 31 30 20 50 52 |14,4,9:C|LS.10 PR|
|00000050| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 0d |INT:PRIN|T:PRINT.|
|00000060| 33 30 20 50 52 49 4e 54 | 22 20 20 20 20 20 20 20 |30 PRINT|"       |
|00000070| 20 20 20 20 20 20 49 4e | 44 49 56 49 44 55 41 4c |      IN|DIVIDUAL|
|00000080| 22 0d 33 35 20 50 52 49 | 4e 54 0d 34 30 20 50 52 |".35 PRI|NT.40 PR|
|00000090| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |INT"    |        |
|000000a0| 20 52 45 54 49 52 45 4d | 45 4e 54 22 0d 34 35 20 | RETIREM|ENT".45 |
|000000b0| 50 52 49 4e 54 0d 35 30 | 20 50 52 49 4e 54 22 20 |PRINT.50| PRINT" |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 43 43 |        |     ACC|
|000000d0| 4f 55 4e 54 22 0d 35 35 | 20 50 52 49 4e 54 3a 43 |OUNT".55| PRINT:C|
|000000e0| 4f 4c 4f 52 20 33 30 2c | 34 2c 39 0d 36 30 20 50 |OLOR 30,|4,9.60 P|
|000000f0| 52 49 4e 54 22 20 20 20 | 20 20 20 20 20 20 20 20 |RINT"   |        |
|00000100| 20 20 20 20 28 49 52 41 | 29 22 0d 36 35 20 50 52 |    (IRA|)".65 PR|
|00000110| 49 4e 54 3a 43 4f 4c 4f | 52 20 31 34 2c 34 2c 39 |INT:COLO|R 14,4,9|
|00000120| 0d 37 30 20 50 52 49 4e | 54 22 20 20 20 20 20 20 |.70 PRIN|T"      |
|00000130| 20 20 20 20 20 20 20 45 | 41 52 4e 49 4e 47 53 22 |       E|ARNINGS"|
|00000140| 0d 37 35 20 50 52 49 4e | 54 0d 38 30 20 50 52 49 |.75 PRIN|T.80 PRI|
|00000150| 4e 54 22 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |NT"     |       C|
|00000160| 41 4c 43 55 4c 41 54 49 | 4f 4e 22 0d 38 31 20 50 |ALCULATI|ON".81 P|
|00000170| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00000180| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000190| 4e 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 0d 38 |NT:PRINT|:PRINT.8|
|000001a0| 32 20 43 4f 4c 4f 52 20 | 36 2c 34 2c 39 0d 38 39 |2 COLOR |6,4,9.89|
|000001b0| 20 50 52 49 4e 54 22 20 | 20 20 50 52 45 53 53 20 | PRINT" |  PRESS |
|000001c0| 45 4e 54 45 52 20 54 4f | 20 47 4f 20 4f 4e 22 0d |ENTER TO| GO ON".|
|000001d0| 39 30 20 49 4e 50 55 54 | 22 20 20 20 22 2c 5a 0d |90 INPUT|"   ",Z.|
|000001e0| 39 34 20 57 49 44 54 48 | 20 38 30 3a 0d 39 35 20 |94 WIDTH| 80:.95 |
|000001f0| 43 4f 4c 4f 52 20 31 35 | 2c 30 2c 30 3a 43 4c 53 |COLOR 15|,0,0:CLS|
|00000200| 0d 31 30 30 20 50 52 49 | 4e 54 0d 31 31 30 20 50 |.100 PRI|NT.110 P|
|00000210| 52 49 4e 54 20 22 20 20 | 20 20 20 20 20 20 20 20 |RINT "  |        |
|00000220| 20 20 20 49 4e 44 49 56 | 49 44 55 41 4c 20 52 45 |   INDIV|IDUAL RE|
|00000230| 54 49 52 45 4d 45 4e 54 | 20 41 43 43 4f 55 4e 54 |TIREMENT| ACCOUNT|
|00000240| 20 28 49 52 41 29 20 45 | 41 52 4e 49 4e 47 53 20 | (IRA) E|ARNINGS |
|00000250| 43 41 4c 43 55 4c 41 54 | 49 4f 4e 22 0d 31 32 30 |CALCULAT|ION".120|
|00000260| 20 50 52 49 4e 54 3a 43 | 4f 4c 4f 52 20 31 32 2c | PRINT:C|OLOR 12,|
|00000270| 30 2c 30 0d 31 33 30 20 | 50 52 49 4e 54 20 22 20 |0,0.130 |PRINT " |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000290| 20 20 20 20 20 20 28 54 | 79 70 65 20 72 65 73 70 |      (T|ype resp|
|000002a0| 6f 6e 73 65 20 74 68 65 | 6e 20 70 75 73 68 20 65 |onse the|n push e|
|000002b0| 6e 74 65 72 29 22 0d 31 | 34 30 20 50 52 49 4e 54 |nter)".1|40 PRINT|
|000002c0| 3a 43 4f 4c 4f 52 20 31 | 30 2c 30 2c 30 0d 31 35 |:COLOR 1|0,0,0.15|
|000002d0| 30 20 49 4e 50 55 54 20 | 22 59 4f 55 52 20 41 56 |0 INPUT |"YOUR AV|
|000002e0| 45 52 41 47 45 20 4d 4f | 4e 54 48 4c 59 20 44 45 |ERAGE MO|NTHLY DE|
|000002f0| 50 4f 53 49 54 20 20 24 | 22 2c 20 44 0d 31 36 30 |POSIT  $|", D.160|
|00000300| 20 50 52 49 4e 54 3a 43 | 4f 4c 4f 52 20 31 34 2c | PRINT:C|OLOR 14,|
|00000310| 30 2c 30 0d 31 37 30 20 | 49 4e 50 55 54 20 22 49 |0,0.170 |INPUT "I|
|00000320| 52 41 27 53 20 41 4e 4e | 55 41 4c 20 50 45 52 43 |RA'S ANN|UAL PERC|
|00000330| 45 4e 54 41 47 45 20 49 | 4e 54 45 52 45 53 54 20 |ENTAGE I|NTEREST |
|00000340| 28 4f 52 20 45 41 52 4e | 49 4e 47 53 29 20 52 41 |(OR EARN|INGS) RA|
|00000350| 54 45 20 20 22 2c 20 49 | 0d 31 38 30 20 50 52 49 |TE  ", I|.180 PRI|
|00000360| 4e 54 3a 43 4f 4c 4f 52 | 20 39 2c 30 2c 30 0d 31 |NT:COLOR| 9,0,0.1|
|00000370| 39 30 20 49 20 3d 28 49 | 2f 31 32 29 20 2a 20 2e |90 I =(I|/12) * .|
|00000380| 30 31 0d 32 30 30 20 49 | 4e 50 55 54 20 22 54 4f |01.200 I|NPUT "TO|
|00000390| 54 41 4c 20 4e 55 4d 42 | 45 52 20 4f 46 20 59 45 |TAL NUMB|ER OF YE|
|000003a0| 41 52 53 20 59 4f 55 20 | 45 58 50 45 43 54 20 54 |ARS YOU |EXPECT T|
|000003b0| 4f 20 4d 41 4b 45 20 44 | 45 50 4f 53 49 54 53 20 |O MAKE D|EPOSITS |
|000003c0| 22 2c 20 50 0d 32 30 35 | 20 50 20 3d 20 50 2a 31 |", P.205| P = P*1|
|000003d0| 32 0d 32 31 30 20 47 4f | 53 55 42 20 34 31 30 0d |2.210 GO|SUB 410.|
|000003e0| 32 32 30 20 50 52 49 4e | 54 0d 32 33 30 20 50 52 |220 PRIN|T.230 PR|
|000003f0| 49 4e 54 0d 32 34 30 20 | 50 52 49 4e 54 3a 43 4f |INT.240 |PRINT:CO|
|00000400| 4c 4f 52 20 33 31 2c 30 | 2c 30 0d 32 35 30 20 50 |LOR 31,0|,0.250 P|
|00000410| 52 49 4e 54 20 22 49 52 | 41 20 45 41 52 4e 49 4e |RINT "IR|A EARNIN|
|00000420| 47 53 22 0d 32 36 30 20 | 50 52 49 4e 54 3a 43 4f |GS".260 |PRINT:CO|
|00000430| 4c 4f 52 20 31 33 2c 30 | 2c 30 0d 32 37 30 20 59 |LOR 13,0|,0.270 Y|
|00000440| 20 3d 20 50 2f 31 32 0d | 32 38 30 20 49 54 20 3d | = P/12.|280 IT =|
|00000450| 20 46 56 20 2d 20 28 44 | 2a 50 29 0d 32 39 30 20 | FV - (D|*P).290 |
|00000460| 50 52 49 4e 54 20 22 49 | 4e 20 22 20 59 20 22 20 |PRINT "I|N " Y " |
|00000470| 59 45 41 52 53 20 59 4f | 55 52 20 49 4e 54 45 52 |YEARS YO|UR INTER|
|00000480| 45 53 54 20 45 41 52 4e | 49 4e 47 53 20 57 49 4c |EST EARN|INGS WIL|
|00000490| 4c 20 54 4f 54 41 4c 20 | 20 22 3b 0d 33 30 30 20 |L TOTAL | ";.300 |
|000004a0| 50 52 49 4e 54 20 55 53 | 49 4e 47 20 22 24 24 23 |PRINT US|ING "$$#|
|000004b0| 2c 23 23 23 2c 23 23 23 | 2e 23 23 22 3b 49 54 0d |,###,###|.##";IT.|
|000004c0| 33 31 30 20 50 52 49 4e | 54 0d 33 32 30 20 59 20 |310 PRIN|T.320 Y |
|000004d0| 3d 20 50 2f 31 32 0d 33 | 33 30 20 50 52 49 4e 54 |= P/12.3|30 PRINT|
|000004e0| 20 22 49 4e 20 22 20 59 | 20 22 20 59 45 41 52 53 | "IN " Y| " YEARS|
|000004f0| 20 59 4f 55 20 57 49 4c | 4c 20 48 41 56 45 20 41 | YOU WIL|L HAVE A|
|00000500| 20 54 4f 54 41 4c 20 4f | 46 20 22 3b 0d 33 34 30 | TOTAL O|F ";.340|
|00000510| 20 50 52 49 4e 54 20 55 | 53 49 4e 47 20 22 24 24 | PRINT U|SING "$$|
|00000520| 23 2c 23 23 23 2c 23 23 | 23 2e 23 23 22 3b 46 56 |#,###,##|#.##";FV|
|00000530| 0d 33 35 30 20 50 52 49 | 4e 54 0d 33 36 30 20 50 |.350 PRI|NT.360 P|
|00000540| 52 49 4e 54 3a 43 4f 4c | 4f 52 20 31 32 2c 30 2c |RINT:COL|OR 12,0,|
|00000550| 30 0d 33 37 30 20 49 4e | 50 55 54 20 22 20 20 20 |0.370 IN|PUT "   |
|00000560| 20 54 59 50 45 20 31 20 | 54 48 45 4e 20 45 4e 54 | TYPE 1 |THEN ENT|
|00000570| 45 52 20 54 4f 20 54 52 | 59 20 41 4e 4f 54 48 45 |ER TO TR|Y ANOTHE|
|00000580| 52 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 20 4f 52 |R CALCUL|ATION OR|
|00000590| 20 35 20 54 4f 20 45 4e | 44 20 50 52 4f 47 52 41 | 5 TO EN|D PROGRA|
|000005a0| 4d 22 3b 51 0d 33 38 30 | 20 49 46 20 51 3d 31 20 |M";Q.380| IF Q=1 |
|000005b0| 54 48 45 4e 20 47 4f 54 | 4f 20 39 34 20 45 4c 53 |THEN GOT|O 94 ELS|
|000005c0| 45 20 33 39 30 0d 33 39 | 30 20 43 4c 45 41 52 0d |E 390.39|0 CLEAR.|
|000005d0| 33 39 35 20 4b 45 59 20 | 4f 4e 3a 43 4f 4c 4f 52 |395 KEY |ON:COLOR|
|000005e0| 20 31 35 2c 30 2c 30 3a | 43 4c 53 0d 34 30 30 20 | 15,0,0:|CLS.400 |
|000005f0| 45 4e 44 0d 34 31 30 20 | 27 20 43 4f 4d 50 4f 55 |END.410 |' COMPOU|
|00000600| 4e 44 20 4d 4f 4e 54 48 | 4c 59 20 49 4e 54 45 52 |ND MONTH|LY INTER|
|00000610| 45 53 54 20 46 4f 52 4d | 55 4c 41 0d 34 32 30 20 |EST FORM|ULA.420 |
|00000620| 4e 20 3d 20 49 20 2b 20 | 31 0d 34 33 30 20 47 4f |N = I + |1.430 GO|
|00000630| 53 55 42 20 34 36 30 0d | 34 34 30 20 46 56 20 3d |SUB 460.|440 FV =|
|00000640| 20 44 20 2a 20 28 28 45 | 2d 31 29 2f 49 29 0d 34 | D * ((E|-1)/I).4|
|00000650| 35 30 20 52 45 54 55 52 | 4e 0d 34 36 30 20 27 20 |50 RETUR|N.460 ' |
|00000660| 46 4f 52 4d 55 4c 41 20 | 46 4f 52 20 52 41 49 53 |FORMULA |FOR RAIS|
|00000670| 49 4e 47 20 41 20 4e 55 | 4d 42 45 52 20 54 4f 20 |ING A NU|MBER TO |
|00000680| 41 20 50 4f 57 45 52 0d | 34 37 30 20 45 20 3d 20 |A POWER.|470 E = |
|00000690| 31 0d 34 38 30 20 46 4f | 52 20 58 20 3d 20 31 20 |1.480 FO|R X = 1 |
|000006a0| 54 4f 20 50 0d 34 39 30 | 20 45 20 3d 20 45 20 2a |TO P.490| E = E *|
|000006b0| 20 4e 0d 35 30 30 20 4e | 45 58 54 20 58 0d 35 31 | N.500 N|EXT X.51|
|000006c0| 30 20 49 46 20 50 20 3d | 20 30 20 54 48 45 4e 20 |0 IF P =| 0 THEN |
|000006d0| 45 20 3d 20 31 0d 35 32 | 30 20 52 45 54 55 52 4e |E = 1.52|0 RETURN|
|000006e0| 0d 0d 0d 00 00 00 00 00 | 00 00 00 60 00 00 60 1a |........|...`..`.|
|000006f0| 49 4e 47 20 41 20 4e 55 | 4d 42 45 52 20 54 4f 20 |ING A NU|MBER TO |
+--------+-------------------------+-------------------------+--------+--------+